home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 March / CHIP Mart 1997.iso / SurfCam / SURFCAM.Z / CIN950.M3 < prev    next >
Text File  |  1996-04-01  |  4KB  |  142 lines
  1. name Cincinnati Milacron 950MC B Axis Indexing
  2.  
  3. % 00
  4. : 00
  5. / 00
  6. O >2
  7. N >4
  8. G >2
  9. e 00
  10. X ->3.>4
  11. Y ->3.>4
  12. Z ->3.>4
  13. B ->3.>3
  14. I ->3.>4
  15. J ->3.>4
  16. K ->3.>4
  17. Q ->3.>4
  18. R ->3.>4
  19. P >40
  20. S >4
  21. F >3.1
  22. H >2
  23. D >2
  24. b 00
  25. T >2
  26. c 00
  27. M >2
  28. U ->3.>4
  29. V ->3.>4
  30. j >1 J
  31. m >6
  32. ) 00
  33.  
  34. ModalLetters X Y Z B F R              # List of letters that are modal    
  35.  
  36. ModalGs 0 1 2 3 73 74 76 80 81 82 83 84 85  # List of g codes that are modal    
  37.  
  38. Sequence#s N 0 1 1                    # Char, freq, incr & start          
  39. First#? N                             # Y or N  'Output 1st sequence no.  
  40. Last#? N                              # Y or N  'Output last sequence no. 
  41.  
  42. HCode X                               # X or X U  'Horizontal char.       
  43. VCode Y                               # Y or Y V  'Vertical char.         
  44. Dcode Z                               # Depth char.                       
  45. FeedCode F                            # Feed rate char.                   
  46.  
  47. Comment (MSG,                         # Begin End comment char.           
  48.  
  49. Spindle 3 4 5                         # Cw, ccw & stop m codes            
  50. Coolant 8 9 7                         # On, Off & Mist m codes            
  51. DComp 41 42 40                        # Left, Right & Cancel m codes      
  52. LComp 43 49                           # On & Off codes                    
  53.  
  54. Feed G1                             # Linear move                       
  55. Rapid G0                            # Rapid positioning word            
  56. Cw G2                               # Circular move clockwise           
  57. Ccw G3                              # Circular move counter clockwise   
  58. Inc/Abs G 91 90                       # Inc & Abs char. & values          
  59. Work G                                # Work offset register              
  60. CtrCode I J                           # I J or R or I J K L               
  61. Helical? N
  62.  
  63. Spaces? Y                             # Y or N  'Spaces between words     
  64. Incremental? N                        # Y or N  'Inc or abs output        
  65. CtrIncremental? N                     # Y or N  'Inc or abs I & J         
  66. ByQuadrants? N                        # Y or N  'Break arcs at quadrants  
  67.  
  68. UppercaseComments? Y                  # Y or N 'Require uppercase comments
  69.  
  70.  
  71. Drill                                 # Drilling canned/manual cycle      
  72. G81 X[H] Y[V] Z[D] R[Vclear] F[FRate]
  73. end cancel
  74.  
  75. Ask [Val10] " Enter 1 for full retract peck cycle, or 0 for chip-break: " "1"
  76.  
  77. Peck                                  # Pecking canned/manual cycle       
  78. G83 X[H] Y[V] Z[D] K[VBite] R[Vclear] F[FRate] j[Val10]
  79. end cancel
  80.  
  81. Tap                                   # Tapping canned/manual cycle       
  82. G84 X[H] Y[V] Z[D] R[Vclear] F[FRate]
  83. end cancel
  84.  
  85. Ream                                  # Reaming canned/manual cycle       
  86. G85 X[H] Y[V] Z[D] R[Vclear] F[FRate]
  87. end cancel
  88.  
  89. Bore                                  # Boring canned/manual cycle        
  90. G86 X[H] Y[V] Z[D] R[Vclear] F[FRate]
  91. end cancel
  92.  
  93. Back                                  # Back boring canned/manual cycle   
  94. G87 X[H] Y[V] Z[D] U0 V[SClear] I0 K0 R[Vclear] F[FRate]
  95. end cancel
  96.  
  97. Cancel                                # Cancel a canned/manual cycle      
  98. G80
  99. end
  100.  
  101. Index Y                               # Index the rotary table            
  102. M26
  103. B[Rotangle]
  104. Z[Rplane] H[Lcomp]
  105. End
  106.  
  107. StartCode                             # Start of the program              
  108. %0
  109. :0 G0
  110. m[Program#] )0
  111. End
  112.  
  113. 1stToolChange                         # First tool change                 
  114. T[Tool] M6
  115. S[Speed] F[FRate] M[Direct] M[Cool]
  116. G0 X[H] Y[V] Z[D] H[LComp]
  117. End
  118.  
  119. Infeed                                # Enable cutter comp                
  120. G[Side] X[H] Y[V] F[FRate]
  121. end
  122.  
  123. Outfeed                               # Disable cutter comp               
  124. G1 G40 X[H] Y[V]
  125. end
  126.  
  127. ToolChange                            # Secondary tool changes            
  128. T[Tool] M6
  129. S[Speed] F[FRate] M[Direct] M[Cool]
  130. G0 X[H] Y[V] Z[D]
  131. End
  132.  
  133. EndCode                               # End of the program                
  134. M2
  135. %0
  136. End
  137.  
  138. Replace "e" with "="
  139. Replace "b" with "["
  140. Replace "c" with "]"
  141. Replace "m" with "(MSG,PROGRAM NO. "
  142.